end 

 LLx neg LLy neg translate 

 s 3 get s 1 get sub URy LLy sub div scale 

 s 2 get s 0 get sub URx LLx sub div 

 s 0 get s 1 get translate 

 { exch def } forall 


 [/s /URy /URx /LLy /LLx] 

5 dict begin 


[newpath clippath pathbbox] 

+